home *** CD-ROM | disk | FTP | other *** search
/ Otherware / Otherware_1_SB_Development.iso / mac / misc / medical / mendelge.cpt / MendelGenetics / MENDELIAN GENETICS I / card_40656.txt < prev    next >
Text File  |  1989-06-13  |  6KB  |  284 lines
  1. -- card: 40656 from stack: in
  2. -- bmap block id: 95386
  3. -- flags: 0000
  4. -- background id: 2665
  5. -- name: 
  6.  
  7.  
  8. -- part 1 (button)
  9. -- low flags: 00
  10. -- high flags: 8003
  11. -- rect: left=332 top=21 right=43 bottom=432
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: RESET
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   delete line 1 of card field F1
  23.   delete line 1 of card field F2
  24.   delete line 1 of card field F3
  25.   delete line 1 of card field F4
  26.   delete line 1 of card field F5
  27.   delete line 1 of card field F6
  28.   delete line 1 of card field F7
  29.   delete line 1 of card field F8
  30. end mouseUp
  31.  
  32.  
  33.  
  34. -- part 2 (button)
  35. -- low flags: 00
  36. -- high flags: 8003
  37. -- rect: left=333 top=145 right=167 bottom=433
  38. -- title width / last selected line: 0
  39. -- icon id / first selected line: 0 / 0
  40. -- text alignment: 1
  41. -- font id: 0
  42. -- text size: 12
  43. -- style flags: 0
  44. -- line height: 16
  45. -- part name: SELFED
  46. ----- HyperTalk script -----
  47. on mouseUp
  48.   delete line 1 of card field F1
  49.   delete line 1 of card field F2
  50.   delete line 1 of card field F3
  51.   delete line 1 of card field F4
  52.   repeat 32 times
  53.     put random of 32 into it
  54.     if it <= 18 then
  55.       add 1 to card field F1
  56.     end if
  57.     if it >=19 and it <=24 then
  58.       add 1 to card field F2
  59.     end if
  60.     if it >= 25 and it <=30 then
  61.       add 1 to card field F3
  62.     end if
  63.     if it >=31 then
  64.       add 1 to card field F4
  65.     end if
  66.   end repeat
  67.   add card field F1 to card field  F5
  68.   add card field F2 to card field F6
  69.   add card field F3 to card field F7
  70.   add card field F4 to card field F8
  71. end mouseUp
  72.  
  73.  
  74.  
  75. -- part 3 (field)
  76. -- low flags: 00
  77. -- high flags: 0002
  78. -- rect: left=273 top=179 right=205 bottom=327
  79. -- title width / last selected line: 0
  80. -- icon id / first selected line: 0 / 0
  81. -- text alignment: 0
  82. -- font id: 3
  83. -- text size: 12
  84. -- style flags: 0
  85. -- line height: 16
  86. -- part name: F1
  87.  
  88.  
  89. -- part 4 (field)
  90. -- low flags: 00
  91. -- high flags: 0002
  92. -- rect: left=330 top=179 right=205 bottom=384
  93. -- title width / last selected line: 0
  94. -- icon id / first selected line: 0 / 0
  95. -- text alignment: 0
  96. -- font id: 3
  97. -- text size: 12
  98. -- style flags: 0
  99. -- line height: 16
  100. -- part name: F2
  101.  
  102.  
  103. -- part 5 (field)
  104. -- low flags: 00
  105. -- high flags: 0002
  106. -- rect: left=387 top=179 right=205 bottom=441
  107. -- title width / last selected line: 0
  108. -- icon id / first selected line: 0 / 0
  109. -- text alignment: 0
  110. -- font id: 3
  111. -- text size: 12
  112. -- style flags: 0
  113. -- line height: 16
  114. -- part name: F3
  115.  
  116.  
  117. -- part 6 (field)
  118. -- low flags: 00
  119. -- high flags: 0002
  120. -- rect: left=443 top=179 right=205 bottom=497
  121. -- title width / last selected line: 0
  122. -- icon id / first selected line: 0 / 0
  123. -- text alignment: 0
  124. -- font id: 3
  125. -- text size: 12
  126. -- style flags: 0
  127. -- line height: 16
  128. -- part name: F4
  129.  
  130.  
  131. -- part 7 (field)
  132. -- low flags: 00
  133. -- high flags: 0002
  134. -- rect: left=272 top=262 right=288 bottom=326
  135. -- title width / last selected line: 0
  136. -- icon id / first selected line: 0 / 0
  137. -- text alignment: 0
  138. -- font id: 3
  139. -- text size: 12
  140. -- style flags: 0
  141. -- line height: 16
  142. -- part name: F5
  143.  
  144.  
  145. -- part 8 (field)
  146. -- low flags: 00
  147. -- high flags: 0002
  148. -- rect: left=330 top=263 right=289 bottom=384
  149. -- title width / last selected line: 0
  150. -- icon id / first selected line: 0 / 0
  151. -- text alignment: 0
  152. -- font id: 3
  153. -- text size: 12
  154. -- style flags: 0
  155. -- line height: 16
  156. -- part name: F6
  157.  
  158.  
  159. -- part 9 (field)
  160. -- low flags: 00
  161. -- high flags: 0002
  162. -- rect: left=389 top=263 right=289 bottom=443
  163. -- title width / last selected line: 0
  164. -- icon id / first selected line: 0 / 0
  165. -- text alignment: 0
  166. -- font id: 3
  167. -- text size: 12
  168. -- style flags: 0
  169. -- line height: 16
  170. -- part name: F7
  171.  
  172.  
  173. -- part 10 (field)
  174. -- low flags: 00
  175. -- high flags: 0002
  176. -- rect: left=448 top=263 right=289 bottom=502
  177. -- title width / last selected line: 0
  178. -- icon id / first selected line: 0 / 0
  179. -- text alignment: 0
  180. -- font id: 3
  181. -- text size: 12
  182. -- style flags: 0
  183. -- line height: 16
  184. -- part name: F8
  185.  
  186.  
  187. -- part 11 (button)
  188. -- low flags: 00
  189. -- high flags: 8003
  190. -- rect: left=339 top=319 right=341 bottom=439
  191. -- title width / last selected line: 0
  192. -- icon id / first selected line: 0 / 0
  193. -- text alignment: 1
  194. -- font id: 0
  195. -- text size: 12
  196. -- style flags: 0
  197. -- line height: 16
  198. -- part name: CHI SQUARE
  199. ----- HyperTalk script -----
  200. on mouseUp
  201.   global bagone
  202.   global bagtwo
  203.   global bagthree
  204.   global bagfour
  205.   put the value of card field F5 into "bagone"
  206.   put the value of card field F6 into "bagtwo"
  207.   put the value of card field F7 into "bagthree"
  208.   put the value of card field F8 into "bagfour"
  209.   go to card id 25732
  210.   put 0 into card field class1
  211.   put 0 into card field class2
  212.   put 0 into card field class3
  213.   put 0 into card field class4
  214.   put 0 into card field F5
  215.   put 0 into card field F6
  216.   put 0 into card field F7
  217.   put 0 into card field F8
  218.   put bagone into card field "CLASS1"
  219.   put bagtwo into card field "CLASS2"
  220.   put bagthree into card field "CLASS3"
  221.   put bagfour into card field "CLASS4"
  222. end mouseUp
  223.  
  224.  
  225.  
  226. -- part 12 (button)
  227. -- low flags: 00
  228. -- high flags: 8003
  229. -- rect: left=161 top=315 right=337 bottom=261
  230. -- title width / last selected line: 0
  231. -- icon id / first selected line: 0 / 0
  232. -- text alignment: 1
  233. -- font id: 0
  234. -- text size: 12
  235. -- style flags: 0
  236. -- line height: 16
  237. -- part name: SUB HEADINGS
  238. ----- HyperTalk script -----
  239. on mouseUp
  240.   go to card id 34122
  241. end mouseUp
  242.  
  243.  
  244.  
  245.  
  246. -- part contents for background part 1
  247. ----- text -----
  248. CHICKEN COMB SHAPE
  249.  
  250. -- part contents for background part 2
  251. ----- text -----
  252. Chickens have different types of comb which display specific types of gene interactions. If a true breeding rose combed fowl is mated with a true breeding pea combed fowl, the F1 all display a comb variety called Walnut. Self the F1 and four different types of comb style appear in the F2 as  listed. Run this cross several times, determine the mode of inheritance and check your hypothesis with the Chi Square program.
  253.  
  254. -- part contents for card part 7
  255. ----- text -----
  256. 58
  257.  
  258. -- part contents for card part 8
  259. ----- text -----
  260. 18
  261.  
  262. -- part contents for card part 9
  263. ----- text -----
  264. 12
  265.  
  266. -- part contents for card part 10
  267. ----- text -----
  268. 8
  269.  
  270. -- part contents for card part 3
  271. ----- text -----
  272. 16
  273.  
  274. -- part contents for card part 6
  275. ----- text -----
  276. 6
  277.  
  278. -- part contents for card part 5
  279. ----- text -----
  280. 5
  281.  
  282. -- part contents for card part 4
  283. ----- text -----
  284. 5